home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / fct.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  555 b   |  35 lines
  1. program Essai;
  2.  
  3. PROCEDURE Pair(debut : INTEGER; float1, float2: REAL)
  4.  
  5. var
  6.     a,b      : real;
  7.  
  8. begin
  9.     b := 1;
  10.  
  11.     while b<10 do
  12.         begin
  13.             write(b);
  14.  
  15.             if b/2=trunc(b/2) then
  16.                 begin
  17.                     write(' ----->');
  18.                     writeln(' Nbre pair');
  19.                 end
  20.             else
  21.                 writeln(' Nbre impair');
  22.             b:=b+1;
  23.         end;
  24.     write('OK!');
  25. end;
  26.  
  27. var
  28.     n : integer;
  29.  
  30. begin
  31.  
  32.     writeln('                 Exemple de PROCEDURE');
  33.     n :=0;
  34.     writeln;
  35. end.